﻿Imports Microsoft.VisualBasic

Public Class clsGPUtilidades
    Public Shared Sub poCreateConfirmBox(ByRef pbtn As WebControls.Button, _
                                       ByVal strMessage As String)
        pbtn.Attributes.Add("onclick", "return confirm('" & strMessage & "');")
    End Sub
    Public Shared Sub poCreateConfirmBox(ByRef pbtn As WebControls.Button, _
                                   ByVal pStru As clsGPEstructuras.enmMSGalUsuario)
        pbtn.Attributes.Add("onclick", "return confirm('" & fuMensajeUsuario(pStru) & "');")
    End Sub
    Public Shared Function fuMensajeUsuario(ByVal pStru As clsGPEstructuras.enmMSGalUsuario) As String
        Dim lsmsg As String
        Select Case pStru
            Case clsGPEstructuras.enmMSGalUsuario.GPMSGACTUALIZACIONOK
                lsmsg = "Los datos se Actualizaron Correctamente"
            Case clsGPEstructuras.enmMSGalUsuario.GPMSGREGISTROOK
                lsmsg = "Los datos se Registraron Correctamente"
            Case clsGPEstructuras.enmMSGalUsuario.GPMSGERRORGUARDAR
                lsmsg = "* Ocurrio un error al guardar"
            Case clsGPEstructuras.enmMSGalUsuario.GPMSGSEGUROELIMREGISTRO
                lsmsg = "Estas Seguro de eliminar el registro"
            Case clsGPEstructuras.enmMSGalUsuario.GPMSGERRELIMINAR
                lsmsg = "* Ocurrio un Error al eliminar el registro"
            Case clsGPEstructuras.enmMSGalUsuario.GPMSGELIMINACIONOK
                lsmsg = "Los Datos se eliminaron Correctamente"
            Case Else : lsmsg = "* Ocurrio un error"
        End Select
        Return lsmsg
    End Function
    Public Shared Function fuMensajeUsuValidar(ByVal pStru As clsGPEstructuras.enmMSGalUsuValidar, ByVal ps As String) As String
        Dim lsmsg As String
        Select Case pStru
            Case clsGPEstructuras.enmMSGalUsuValidar.GPMSGFECHAINVALIDA
                lsmsg = "* Ingrese una Fecha de " & ps & " Valida"
            Case clsGPEstructuras.enmMSGalUsuValidar.GPMSGMONTOMAYORCERO
                lsmsg = "* El Monto del " & ps & " debe ser Mayor que Cero"
            Case clsGPEstructuras.enmMSGalUsuValidar.GPMSGDATOSELECCIONINVALIDO
                lsmsg = "* El " & ps & " Seleccionado no es Valido"
            Case clsGPEstructuras.enmMSGalUsuValidar.GPMSGDATOVACIO
                lsmsg = "* Debe ingresar un(a)" & ps & " Valida"

            Case Else : lsmsg = "* Ocurrio un error"
        End Select
        Return lsmsg
    End Function

    Public Shared Function fuMensajeUsuValidar(ByVal pStru As clsGPEstructuras.enmMSGalUsuValidar) As String
        Dim lsmsg As String
        Select Case pStru
            Case clsGPEstructuras.enmMSGalUsuValidar.GPMSGFECHAINICIOMAYORFINAL
                lsmsg = "* La fecha de Inicio no debe ser mayor a la fecha fin"
            Case clsGPEstructuras.enmMSGalUsuValidar.GPMSGHORAINICIOMAYORFINAL
                lsmsg = "* La Hora de Inicio no debe ser mayor a la Hora final"
            Case Else : lsmsg = "* Ocurrio un error"
        End Select
        Return lsmsg
    End Function
End Class



